Komputer for Alle 1998 #6/1998 CD 6 (Gul).iso/01.dir/00249.ls

Text File | 1996-02-08 | 1.5 KB | 69 lines

global fSep

on startMovie
  global voicePath, soundTrackPath, currentVoice, currentsoundTrack, vWindow, vSlider1, vSlider2, sliderTop, sliderBottom, volumeHPositions, ambientLevel, voiceLevel, gWaitForUser
  set the timeoutScript to "Nothing"
  puppetSprite(45, 0)
  set gWaitForUser to 0
  set ambientLevel to 150
  set voiceLevel to 255
  set currentsoundTrack to "12TURT.AIF"
  set vWindow to 46
  set vSlider1 to 47
  set vSlider2 to 48
  soundSetup()
  puppetVolumeControls()
end

on init02
  global gLastRolledOn
  set gLastRolledOn to 0
  setPuppets(3, 9, 1)
end

on puppetVolumeControls
  global vWindow, vSlider1, vSlider2
  puppetSprite(vWindow, 1)
  puppetSprite(vSlider1, 1)
  puppetSprite(vSlider2, 1)
end

on checkRoll START, end
  repeat with i = START to end
    if rollOver(i) then
      hiliteSprite(i)
    end if
  end repeat
end

on hiliteSprite whichSprite
  set the castNum of sprite whichSprite to the castNum of sprite whichSprite + 1
  set didItClick to 0
  updateStage()
  repeat while rollOver(whichSprite)
    go(the frame)
    if the mouseDown then
      set didItClick to 1
      exit repeat
    end if
  end repeat
  if didItClick = 1 then
    departRoutine(whichSprite - 2)
  else
    set the castNum of sprite whichSprite to the castNum of sprite whichSprite - 1
  end if
  updateStage()
end

on setPuppets channelStart, channelEnd, TRUEorFALSE
  repeat with i = channelStart to channelEnd
    puppetSprite(i, TRUEorFALSE)
  end repeat
end

on departRoutine whereTo
  setPuppets(3, 9, 0)
  set x to line whereTo of field "departList"
  go(x)
end